home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer (Italian) 32
/
PC Gamer IT CD 32 2-2.iso
/
drivers
/
videodrv
/
cyrrus
/
CL5446
/
UTILITY
/
INSTALL.DAT
< prev
next >
Wrap
Text File
|
1996-12-20
|
49KB
|
1,553 lines
// Standard header here...
@DefineProject
@Name = "GD5436/46 Display Drivers"
@Version = "Version 1.14 RC"
@Subdir = "\\"
@Immediate = 1
@OutDrive = C
@Requires @HardDisk
@EndProject
// Define all the vars you need here
// Init all strings with "" or a hard coded string
// Init all Integers with 0 or 1
// If OEM release, set @IsOem = 1 else 0
@DefineVars
@Integer @DDrive = 99
@Integer @StrLens = 0
@Integer @bannercol = 0
@Integer @OurCol = 0
@Integer @XX = 0
@Integer @IsOem = 1
@Dir @AcadDir = "\\ACAD\\DRV"
@Drive @AcadDrive = C
@Qstring @Product = "GD5436/46"
@Qstring @NameLower = "GD5436/46 display drivers"
@Qstring @Opt1020 = "AutoCAD Release 12, 13"
@Qstring @Opt1040 = "AutoDesk 3D Studio Ver 1.0 - 3.0"
@Qstring @Opt1060 = "AutoShade with RenderMan Ver 2.0"
/* @Qstring @Opt1100 = "Lotus 1-2-3 Ver 2.xx" */
/* @Qstring @Opt1110 = "Lotus 1-2-3 Ver 3.0" */
/* @Qstring @Opt1115 = "Lotus 1-2-3 Ver 3.1" */
/* @Qstring @Opt1200 = "Word Ver 5.0 800x600 16-colors" */
/* @Qstring @Opt1210 = "Word Ver 5.5 800x600, 1024x768 16-colors" */
/* @Qstring @Opt1225 = "WordPerfect Ver 5.1" */
@Qstring @Opt1230 = "VGA Utilities"
/* @Qstring @Opt1250 = "Wordstar Ver 5.5, 7.0" */
/* @Qstring @Opt1890 = "[OEM VGA.EXE or VGALOCAL.EXE TEXT SCREEN VARIABLE NAME]" */
/* @Qstring @Opt1910 = "[OEM1 TEXT SCREEN VARIABLE NAME]" */
/* @Qstring @Opt1920 = "[OEM2 TEXT SCREEN VARIABLE NAME]" */
/* @Qstring @Opt1930 = "[OEM3 TEXT SCREEN VARIABLE NAME]" */
@Qstring @Line1 = "is the name of the default directory where the"
@Qstring @Line2 = "display driver(s) will be installed."
@Qstring @Line3 = "The program locates the subdirectory below the root directory"
@Qstring @Line4 = "of drive"
@Qstring @Line5 = "To choose the default, press ENTER."
@Qstring @Line6 = "To change the directory name, backspace over the currently "
@Qstring @Line7 = "displayed name and type a new name. Press ENTER when finished."
@Qstring @Line8 = "A directory already exists with the name"
@Qstring @Line9 = "Do you want to copy the new display driver(s) over the files in this"
@Qstring @Line10 = "directory?"
@Qstring @Line11 = "After the driver(s) have been copied to their respective directories,"
@Qstring @Line12 = "refer to either the application's technical reference manual or"
@Qstring @Line13 = "the Display Drivers and Utilities manual supplied with your VGA"
@Qstring @Line14 = "for information on using the high resolution drivers."
@Qstring @Line15 = "An INSTALL.DDF file already exists in the directory "
@Qstring @Line16 = "Do you want to rename the current INSTALL.DDF file to INSTALL.BAK?"
@Qstring @Line20 = "will be installed."
@Qstring @redprogram = "TURBODLD.RED"
@Qstring @thisprogram = "RCTURBOC.EXP"
@Qstring @namethisprogram = "TurboDLD drivers"
@Qstring @helpcontact = "Panacea Inc"
@Qstring @registration = ""
@Qstring @registrationname = ""
@Qstring @companyname = ""
@Qstring @regreturn = ""
@Qstring @ourhomeexp = ""
@Qstring @ourhomered = ""
@Qstring @tempstring = ""
@Qstring @bannername = "AutoCAD / AutoSHADE / 3D Studio TurboDLD Drivers"
/* @Dir @Opt1100Dir = "\\123" */
/* @Dir @Opt1110Dir = "\\123R3" */
/* @Dir @Opt1115Dir = "\\123R3" */
/* @Dir @Opt1200Dir = "\\WORD5" */
/* @Dir @Opt1210Dir = "\\WORD55" */
/* @Dir @Opt1225Dir = "\\WP51" */
@Dir @Opt1230Dir = "\\VGAUTIL"
/* @Dir @Opt1250Dir = "\\WS" */
/* @Dir @Opt1890Dir = "\\RAMBIOS" */
/* @Dir @Opt1910Dir = "\\OEM1" */
/* @Dir @Opt1920Dir = "\\OEM2" */
/* @Dir @Opt1930Dir = "\\OEM3" */
@EndVars
@Display
@Cls
@Name
Release @Version
Copyright (C) Cirrus Logic, Inc 1991-1996. All rights reserved.
This program will install the Cirrus Logic @NameLower,
release @Version, on your computer system and verify the
integrity of the distribution disk(s). You may press the
[Esc] key at any time to abort the installation. INSTALL
will ask you several questions about your computer hardware
and then give you the option of installing all
or selected @NameLower.
Each question has a default answer. If the default answer
is correct, press the ENTER key in response to the question.
Otherwise, type the answer and then press the ENTER key.
If you make a mistake while typing, press the BACKSPACE key
and then retype the answer.
@Pause
@EndDisplay
@GetOutDrive
@Suppress A
@Suppress B
@Cls
On which disk drive do you wish to install the @NameLower?
@EndOutDrive
OPTIONSELECT:
@GetOption
@CheckBox
@Cls
Select the @NameLower to install on drive @OutDrive:
- scroll up PgUp - scroll page up Enter - install selections
- scroll down PgDn - scroll page down Space bar - toggle Yes/No
Y - all YES N - all NO Esc - Exit Install
@Option 1230 = "Cirrus Logic GD5436/46 Utilities"
@Option 1020 = "AutoCAD Rel 11,12 or 13 Multi-res Multi-color"
@Option 1040 = "AutoDesk 3d Studio Ver 1.0-3.0 Multi-res Multi-color"
@Option 1060 = "AutoShade w/ RenderMan Ver 2.0 Multi-res Multi-color"
/* @Option 1100 = "Lotus 1-2-3 Ver 2.x Multi-res 16-color" */
/* @Option 1110 = "Lotus 1-2-3 Ver 3.0 Multi-res 16-color" */
/* @Option 1115 = "Lotus 1-2-3 Ver 3.1 Multi-res 16-color" */
/* @Option 1140 = "OS/2 16/32-bit Ver 2.x Multi-res 16/256 color" */
/* @Option 1195 = "Windows Ver 3.1 Multi-res Multi-color" */
/* @Option 1200 = "Word Ver 5.0 800x600 16-color" */
/* @Option 1210 = "Word Ver 5.5 800x600,1024x768 16-color" */
/* @Option 1225 = "WordPerfect Ver 5.1 Multi-res 16-color" */
/* @Option 1250 = "WordStar Ver 5.5,7.0 800x600 16-color" */
/* @Option 1890 = "OEM RAMBIOS Ver xx.x" */
/* @Option 1910 = "OEM1 User Application Ver xx.x" */
/* @Option 1920 = "OEM2 User Application Ver xx.x" */
/* @Option 1930 = "OEM3 User Application Ver xx.x" */
@EndOption
@If (
1000 [! @Option &&
1020 [! @Option &&
1040 [! @Option &&
1060 [! @Option &&
1085 [! @Option &&
/* 1100 [! @Option && */
/* 1110 [! @Option && */
/* 1115 [! @Option && */
/* 1140 [! @Option && */
/* 1130 [! @Option && */
/* 1160 [! @Option && */
/* 1170 [! @Option && */
/* 1095 [! @Option && */
/* 1195 [! @Option && */
/* 1200 [! @Option && */
/* 1210 [! @Option && */
/* 1220 [! @Option && */
/* 1225 [! @Option && */
/* 1250 [! @Option && */
1230 [! @Option
/* && 1890 [! @Option */
/* && 1910 [! @Option */
/* && 1920 [! @Option */
/* && 1930 [! @Option */
)
@Display
@Cls
* * * A selection was not detected * * *
At the selection menu, please use the Space bar to toggle the desired
selections and then press Enter to begin the installation procedure.
If no selections are desired, press Esc to exit the install program.
@Pause
@EndDisplay
@Goto OPTIONSELECT
@Endif
/** OEM1 Display Screen Begins ***************************************
@If (1910 [= @Option)
@GetSubdir @Opt1910Dir
@Default = "\\OEM1"
@Cls
@Opt1910Dir @Line1
@Opt1910 @Line2
@Line3
@Line4 @OutDrive:
@Line5
@Line6
@Line7
@Line11
@Line12
@Line13
@Line14
@PROMPT = " Which directory? "
@EndSubdir
@If (@DirExists("@OutDrive:@Opt1910Dir"))
@GetOption
@Line8 @OutDrive:@Opt1910Dir.
@Line9
@Line10
@Option 1911 = "Yes"
@Option 1912 = "No"
@EndOption
@Else
@MkDir("@OutDrive:@Opt1910Dir")
@Endif
@Endif
** OEM1 Display Screen Ends *****************************************/
/** OEM2 Display Screen Begins ***************************************
@If (1920 [= @Option)
@GetSubdir @Opt1920Dir
@Default = "\\OEM2"
@Cls
@Opt1920Dir @Line1
@Opt1920 @Line2
@Line3
@Line4 @OutDrive:
@Line5
@Line6
@Line7
@Line11
@Line12
@Line13
@Line14
@PROMPT = " Which directory? "
@EndSubdir
@If (@DirExists("@OutDrive:@Opt1920Dir"))
@GetOption
@Line8 @OutDrive:@Opt1920Dir.
@Line9
@Line10
@Option 1921 = "Yes"
@Option 1922 = "No"
@EndOption
@Else
@MkDir("@OutDrive:@Opt1920Dir")
@Endif
@Endif
** OEM2 Display Screen Ends *****************************************/
/** OEM3 Display Screen Begins ***************************************
@If (1930 [= @Option)
@GetSubdir @Opt1930Dir
@Default = "\\OEM3"
@Cls
@Opt1930Dir @Line1
@Opt1930 @Line2
@Line3
@Line4 @OutDrive:
@Line5
@Line6
@Line7
@Line11
@Line12
@Line13
@Line14
@PROMPT = " Which directory? "
@EndSubdir
@If (@DirExists("@OutDrive:@Opt1930Dir"))
@GetOption
@Line8 @OutDrive:@Opt1930Dir.
@Line9
@Line10
@Option 1931 = "Yes"
@Option 1932 = "No"
@EndOption
@Else
@MkDir("@OutDrive:@Opt1920Dir")
@Endif
@Endif
** OEM2 Display Screen Ends *****************************************/
/** OEM RAMBIOS Display Screen Begins ********************************
@If (1890 [= @Option)
@GetSubdir @Opt1890Dir
@Default = "\\RAMBIOS"
@Cls
@Opt1890Dir @Line1
@Opt1890 utility will be installed.
@Line3
@Line4 @OutDrive:
@Line5
@Line6
@Line7
@Line11
@Line12
@Line13
@Line14
@PROMPT = " Which directory? "
@EndSubdir
@If (@Exists "@OutDrive:@Opt1890Dir")
@GetOption
@Line8 @OutDrive:@Opt1890Dir.
@Line9
@Line10
@Option 1891 = "Yes"
@Option 1892 = "No"
@EndOption
@Endif
@Endif
** OEM RAMBIOS Display Screen Ends ********************************/
@If ((1020 [= @Option)|| (1040 [= @Option)|| (1060 [= @Option))
// setup some of the local var defs
// Used to display the banner on all screens
@xx = @strlen("@bannername")
@bannercol = (38 - @xx/2)
// get the correct string for the EXP and the RED files
@ourhomeexp = @wherearewe(@thisprogram)
@ourhomered = @wherearewe(@redprogram)
// used to check for Write Protect on floppy
@If (@IsOem == 1)
@goto Acad_OEM
@Endif
@If (@InDrive == A)
@xx = @homedrive(0)
@ElseIf (@InDrive == B)
@xx = @homedrive(1)
@EndIf
@If (@xx == 1) // if error found ...
@tempstring = " Install must have write access to your @namethisprogram "
@xx = @strlen(@tempstring)
@ourcol = (38 - @xx/2)
@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║ ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@MoveCStr(2, @bannercol, 48, @bannername)
@movecstr(7,13,79,"╔═════════════════════════════════════════════════╗")
@movecstr(7,31,207," W A R N I N G ")
@movecstr(8,13,79,"║ ║")
@movecstr(9,13,79,"║ ║")
@movecstr(9,15,79," The diskette in Drive @InDrive is ")
@movecstr(9,43,78," -WRITE PROTECTED- ")
@movecstr(10,13,79,"║ ║")
@movecstr(11,13,79,"╚═════════════════════════════════════════════════╝")
@movecstr(15,@ourcol,31, @tempstring)
@movecstr(16,@ourcol,31," diskette in order to continue. ")
@movecstr(19,@ourcol,31," Press any key to exit to DOS, unprotect the ")
@movecstr(20,@ourcol,31," @namethisprogram diskette and then run INSTALL again. ")
@move(22,0)
@waitkey
@exit
@Endif
@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║ ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@MoveCStr(2, @bannercol, 48, @bannername)
@movecstr(5,5,31,"This utility program registers your copy of @namethisprogram and")
@movecstr(6,5,31,"installs the software into the correct directory or sub-directories.")
@movecstr(8,5,31,"If you have any questions regarding this process, please refer to")
@movecstr(9,5,31,"your @name Users Guide, in particular the ")
@movecstr(10,5,31,"Autodesk-ADI 4.2 section, Quick Start Guide, Installation")
@movecstr(11,5,31,"and Configuring topics.")
@movecstr(13,5,31,"If you are installing for 3D Studio only, install as though you")
@movecstr(14,5,31,"are using AutoCAD Release 11 and follow configuration")
@movecstr(15,5,31,"instructions in the Configuring AutoShade, 3D Studio and AVE Render")
@movecstr(16,5,31,"topic in your @name Users Guide.")
@Display
@move(21,0)
@Pause
@enddisplay
// First thing to do is to check the software and
// register it if need to..
@regreturn = @ckregisterinfo(@ourhomeexp)
@If (@strlen("@regreturn") == 0)
@GoTo Not_Registered
@Endif
@If (@strfind(@regreturn, "ERROR") == -1)
@GoTo Show_Registered
@Endif
// If here, there must have been an error
ShowError:
@xx = @strlen(@regreturn)
@ourcol = (40 - @xx/2)
// adjust for junk on the end of the string
@xx = (@xx - 1)
@Display @Cls
@move(4,0)
There was an error detected by the install software.
The error was:
@movecstr(10,@ourcol,30,@strhead("@regreturn", @xx))
@move(12,0)
Please insure that you have the correct files on your disk.
If you need help, please contact @helpcontact.
@move(21,0)
@Pause
@Exit
@enddisplay
// If we are here then the software has been registered
Show_Registered:
@regreturn = @ckregisterinfo(@ourhomeexp)
// Clear the options out
@clearoption(1)
@clearoption(2)
@xx = @strlen(@regreturn)
@ourcol = (38 - @xx/2)
@GetOption
@LocalWindow(18,40)
@movecstr(1,22,79,"╔═════════════════════════════╗")
@movecstr(2,22,79,"║ ║")
@movecstr(2,24,78,"This Copy Is Registered To:")
@movecstr(3,22,79,"╚═════════════════════════════╝")
@movecstr(7,@ourcol,30,@strhead("@regreturn", @xx))
@move(9,0)
The program has been installed and is protected by federal
copyright laws. If you need additional copies of this software
please contact @helpcontact.
@Option 1 = "Continue"
@Option 2 = "Exit Install"
@EndOption
@If(1 [= @Option)
@Goto Get_Acad
@Else
@Exit
@Endif
Not_Registered:
@getstring @registration
@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║ ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@MoveCStr(2, @bannercol, 48, @bannername)
@LocalWindow(13,40)
@movecstr(7,3,31,"Please type in your Full Name as you wish it to appear for registration")
@movecstr(8,3,31,"purposes. For Corporate installations, you may wish to enter the name of")
@movecstr(9,3,31,"your CAD Manager.")
@movecstr(18,8,31,"Note: The total combined length of [Your Name] and, from the")
@movecstr(19,8,31," next screen, [Company Name] cannot exceed 64 characters.")
@movecstr(20,8,31," If the total is longer, [Company Name] will be truncated.")
@prompt = " Please Enter Your Full Name "
@EndString
// get the length of the string so-far
@strlens = (64 - @strlen("@registration"))
@getstring @companyname
@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║ ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@MoveCStr(2, @bannercol, 48, @bannername)
@LocalWindow(13,40)
@movecstr(7,14,31,"Please type in your Company Name as you would like")
@movecstr(8,14,31,"to have it appear for registration purposes.")
@movecstr(18,9,31,"Note: You have @strlens characters available for [Company Name].")
@movecstr(19,9,31," If you enter a Company Name longer than @strlens characters,")
@movecstr(20,9,31," the additional information will be truncated.")
@prompt = " Please Enter Your Company Name "
@EndString
@registrationname = "@registration, @companyname"
// Clear the options out
@clearoption(10)
@clearoption(20)
@xx = @strlen(@registrationname)
@ourcol = (40 - @xx/2)
@GetOption
@LocalWindow(18,40)
@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║ ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@Movecstr(2, @bannercol, 48, @bannername)
@movecstr(8,18,31,"You have entered the following information:")
@movecstr(12, @ourcol, 62, @registrationname)
@Option 10 = "Information Correct"
@Option 20 = "Information Not Correct"
@EndOption
@If(20 [= @Option)
@Goto Not_Registered
@Endif
// NULL out the string b4 using again
@tempstring = ""
// If we are here, do the registration ....
@regreturn = @registerit(@registrationname @ourhomeexp)
@If (@strfind(@regreturn, "ERROR") != -1)
@GoTo ShowError
@Endif
Acad_OEM:
@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║ ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@MoveCStr(2, @bannercol, 48, @bannername)
@movecstr(5,5,31,"This utility program registers your copy of @namethisprogram and")
@movecstr(6,5,31,"installs the software into the correct directory or sub-directories.")
@movecstr(8,5,31,"If you have any questions regarding this process, please refer to")
@movecstr(9,5,31,"your @name Users Guide, in particular the ")
@movecstr(10,5,31,"Autodesk-ADI 4.2 section, Quick Start Guide, Installation")
@movecstr(11,5,31,"and Configuring topics.")
@movecstr(13,5,31,"If you are installing for 3D Studio only, install as though you")
@movecstr(14,5,31,"are using AutoCAD Release 11 and the follow configuration")
@movecstr(15,5,31,"instructions in the Configuring AutoShade, 3D Studio and AVE Render")
@movecstr(16,5,31,"topic in your @name Users Guide.")
@Display
@move(21,0)
@Pause
@enddisplay
Get_Acad:
// clear the options first
@clearoption(1000)
@clearoption(2000)
@clearoption(3000)
@GetOption @cls
@LocalWindow(14,40)
@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║ ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@Movecstr(2, @bannercol, 48, @bannername)
@move(8,0)
Please enter the Version of AutoCAD you are running:
@Option 1000 = " Release 11, AutoShade, 3D Studio or AVE Render "
@Option 2000 = " Release 12 "
@Option 3000 = " Release 13 "
@EndOption
@If(1000 [= @Option)
@AcadDir = "TURBODLD"
@EndIf
@If(3000 [= @Option)
@AcadDir = "ACAD13\\DOS\\DRV"
@EndIf
@GetSubDir @AcadDir
@Cls
@LocalWindow(14,40)
@If(1000 [= @Option)
@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║ ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@Movecstr(2, @bannercol, 48, @bannername)
@movecstr(6,5,31,"You have chosen to install @namethisprogram for AutoCAD Release 11.")
@movecstr(7,5,31,"Enter a sub-directory name on @OutDrive: for @namethisprogram")
@movecstr(8,5,31,"files. If the sub-directory does not exist, @namethisprogram Install")
@movecstr(9,5,31,"will create it for you.")
@EndIf
@If(2000 [= @Option)
@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║ ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@Movecstr(2, @bannercol, 48, @bannername)
@movecstr(5,5,31,"You have chosen to install @namethisprogram for AutoCAD Release 12.")
@movecstr(6,5,31,"We recommend installing into the DRV sub-directory off of your main")
@movecstr(7,5,31,"AutoCAD sub-directory. Please enter your ACAD\\DRV sub-directory name")
@movecstr(8,5,31,"below.")
@movecstr(10,5,31,"You may also install @namethisprogram into its own sub-directory, to")
@movecstr(11,5,31,"do so, enter an alternate sub-directory name. If the sub-directory does")
@movecstr(12,5,31,"not exist, @namethisprogram Install will create it for you.")
@movecstr(19,5,31,"Please note that if you install @namethisprogram into an alternate")
@movecstr(20,5,31,"sub-directory you will have to alter your ACADDRV environment variable")
@movecstr(21,5,31,"to include the @namethisprogram sub-directory.")
@EndIf
@If(3000 [= @Option)
@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║ ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@Movecstr(2, @bannercol, 48, @bannername)
@movecstr(5,5,31,"You have chosen to install @namethisprogram for AutoCAD Release 13.")
@movecstr(6,5,31,"We recommend installing into the DRV sub-directory off of your main")
@movecstr(7,5,31,"AutoCAD sub-directory. Please enter your ACAD13\\DOS\\DRV sub-directory")
@movecstr(8,5,31,"name below.")
@movecstr(10,5,31,"You may also install @namethisprogram into its own sub-directory, to")
@movecstr(11,5,31,"do so, enter an alternate sub-directory name. If the sub-directory does")
@movecstr(12,5,31,"not exist, @namethisprogram Install will create it for you.")
@movecstr(19,5,31,"Please note that if you install @namethisprogram into an alternate")
@movecstr(20,5,31,"sub-directory you will have to alter your ACADDRV environment variable")
@movecstr(21,5,31,"to include the @namethisprogram sub-directory.")
@EndIf
@EndSubDir
// Clear the options out
@clearoption(10)
@clearoption(20)
@If (@DirExists("@OutDrive:\\@AcadDir"))
@GoTo Report
@Else
@GetOption
@LocalWindow(12,40)
@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║ ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@Movecstr(2, @bannercol, 48, @bannername)
@move(4,0)
@AcadDir path was not found on @OutDrive.
Would you like to create @AcadDir at this time?
@Option 10 = "Yes, create the path"
@Option 20 = "No; re-enter the information"
@EndOption
@Endif
@tempstring = " Creating @OutDrive:@AcadDir, please stand-by ! "
@xx = @strlen(@tempstring)
@ourcol = (40 - @xx/2)
@If(10 [= @Option)
@Display @Cls
@movecstr(12,@ourcol,48,@tempstring)
@MkDir("@OutDrive:@AcadDir")
@EndDisplay
@Goto WeBuiltPath
@Else
@Goto Get_Acad
@Endif
// Now we know where to install TURBODLD, tell the user whats going on
Report:
@clearoption(10)
@clearoption(20)
@tempstring = " @OutDrive:@AcadDir exists, do you wish to use this directory? "
@xx = @strlen(@tempstring)
@ourcol = (38 - @xx/2)
@Getoption
@localwindow(14,40)
@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║ ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@Movecstr(2, @bannercol, 48, @bannername)
@movecstr(9,@ourcol,48,@tempstring)
@Option 10 = "Yes, Continue"
@Option 20 = "No; re-enter the information"
@Endoption
@If(20 [= @Option)
@Goto Get_Acad
@Endif
// we get here from building the dir\sub-dir and not asking if they want to use it.
WeBuiltPath:
// Test the amount of free room left on the dest drive
@Display @Cls
@if (@diskfree(@OutDrive) < 1200000)
@move(7,0)
The selected output disk drive only has @diskfree(@OutDrive) bytes.
@namethisprogram requires a minumum of 1.2mb.
The Install program will now exit, please correct this problem
and re-run the Install program.
@move(21,0)
@Pause
@exit
@endif
@enddisplay
// Clear the options out
@clearoption(10)
@clearoption(20)
@tempstring = " @OutDrive:@AcadDir "
@xx = @strlen(@tempstring)
@ourcol = (40 - @xx/2)
@movecstr(12,@ourcol,63,@tempstring)
@tempstring = " @NameThisProgram will be installed in: "
@xx = @strlen(@tempstring)
@ourcol = (40 - @xx/2)
@GetOption
@LocalWindow(17,40)
@movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
@movecstr(2,8,62,"║ ║")
@movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
@Movecstr(2, @bannercol, 48, @bannername)
@movecstr(8,@ourcol,63,@tempstring)
@Option 10 = "Yes, this is the correct path"
@Option 20 = "No; re-enter the information"
@endoption
@If(10 [= @Option)
@Goto Start_Copy
@Else
@Goto Get_Acad
@Endif
Start_Copy:
@Display
// First check if this is v11
@If(1000 [= @Option)
// Creating FASTACAD.BAT and PANA3DS.BAT files, please stand-by
@Write("@OutDrive:\\@AcadDir\\FASTACAD.BAT", "wt", "SET DLDCFG=@OutDrive:\\@AcadDir\n")
@Write( , , "SET DSPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
@Write( , , "SET RDPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
@Write( , , "SET RCPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
@Else
// Creating PANA3DS.BAT file, please stand-by
@EndIf
@Write("@OutDrive:\\@AcadDir\\PANA3DS.BAT", "wt", "SET DLDCFG=@OutDrive:\\@AcadDir\n")
@Write( , , "SET RCPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
@enddisplay
// This part is a DOS style copy ...
@tempstring = "Processing @namethisprogram Install information -- Please Wait."
@xx = @strlen(@tempstring)
@ourcol = (40 - @xx/2)
@copy("@ourhomeexp", "@OutDrive:\\@AcadDir\\@thisprogram")
@Endif
/*********** Begin modify ***************
@If (1100 [= @Option)
@GetSubdir @Opt1100Dir
@Default = "\\123"
@Cls
@Opt1100Dir @Line1
@Opt1100 @Line2
@Line3
@Line4 @OutDrive:
@Line5
@Line6
@Line7
@Line11
@Line12
@Line13
@Line14
@PROMPT = " Which directory? "
@EndSubdir
@If (@DirExists("@OutDrive:@Opt1100Dir"))
@GetOption
@LocalWindow(14,40)
@Line8 @OutDrive:@Opt1100Dir.
@Line9
@Line10
@Option 1101 = "Yes"
@Option 1102 = "No"
@EndOption
@Else
@MkDir("@OutDrive:@Opt1100Dir")
@Endif
@Endif
**************** END MODIFIED *****************************/
/*********************************
@If (1110 [= @Option)
@GetSubdir @Opt1110Dir
@Default = "\\123R3"
@Cls
@Opt1110Dir @Line1
@Opt1110 @Line2
@Line3
@Line4 @OutDrive:
@Line5
@Line6
@Line7
@Line11
@Line12
@Line13
@Line14
@PROMPT = " Which directory? "
@EndSubdir
@If (@DirExists("@OutDrive:@Opt1110Dir"))
@GetOption
@LocalWindow(14,40)
@Line8 @OutDrive:@Opt1110Dir.
@Line9
@Line10
@Option 1111 = "Yes"
@Option 1112 = "No"
@EndOption
@Else
@MkDir("@OutDrive:@Opt1110Dir")
@Endif
@Endif
*********************************/
/***********************
@If (1115 [= @Option)
@GetSubdir @Opt1115Dir
@Default = "\\123R3"
@Cls
@Opt1115Dir @Line1
@Opt1115 @Line2
@Line3
@Line4 @OutDrive:
@Line5
@Line6
@Line7
@Line11
@Line12
@Line13
@Line14
@PROMPT = " Which directory? "
@EndSubdir
@If (@DirExists("@OutDrive:@Opt1115Dir"))
@GetOption
@LocalWindow(14,40)
@Line8 @OutDrive:@Opt1115Dir.
@Line9
@Line10
@Option 1116 = "Yes"
@Option 1117 = "No"
@EndOption
@Else
@MkDir("@OutDrive:@Opt1115Dir")
@Endif
@Endif
***************************************/
/*
@If (1140 [= @Option)
@Display
@Cls
The OS/2 WPS/PM version 2.x display device driver requires
special procedures in order to correctly install on your system.
Please refer to the display device driver section of the display drivers
and utility user guide for more information on installing this driver.
@Pause
@EndDisplay
@Endif
*/
/*
@If (1195 [= @Option)
@Display
@Cls
The Windows version 3.1 display device drivers requires that you
run the setup program provided with Windows 3.1. You may also
want to use the Windows Install program provided on the Windows
display drivers disk. The install program will install a resolution
setting utility to enable you to change resolution and select colors
without the need to rerun the Windows Setup program.
Please refer to the display device drivers section of the display drivers
and utility user guide for more information on installing this driver.
@Pause
@EndDisplay
@Endif
*/
/*
@If (1200 [= @Option)
@GetSubdir @Opt1200Dir
@Default = "\\WORD5"
@Cls
@Opt1200Dir @Line1
@Opt1200 @Line2
@Line3
@Line4 @OutDrive:
@Line5
@Line6
@Line7
@Line11
@Line12
@Line13
@Line14
@PROMPT = " Which directory? "
@EndSubdir
@If (@DirExists("@OutDrive:@Opt1200Dir"))
@GetOption
@LocalWindow(14,40)
@Line8 @OutDrive:@Opt1200Dir.
@Line9
@Line10
@Option 1201 = "Yes"
@Option 1202 = "No"
@EndOption
@Else
@MkDir("@OutDrive:@Opt1200Dir")
@Endif
@Endif
*/
/*
@If (1210 [= @Option)
@GetSubdir @Opt1210Dir
@Default = "\\WORD55"
@Cls
@Opt1210Dir @Line1
@Opt1210 @Line20
@Line3
@Line4 @OutDrive:
@Line5
@Line6
@Line7
@Line11
@Line12
@Line13
@Line14
@PROMPT = " Which directory? "
@EndSubdir
@If (@DirExists("@OutDrive:@Opt1210Dir"))
@GetOption
@LocalWindow(14,40)
@Line8 @OutDrive:@Opt1210Dir.
@Line9
@Line10
@Option 1211 = "Yes"
@Option 1212 = "No"
@EndOption
@Else
@MkDir("@OutDrive:@Opt1210Dir")
@Endif
@Endif
*/
/*
@If (1220 [= @Option)
@GetSubdir @Opt1220Dir
@Default = "\\WP50"
@Cls
@Opt1220Dir @Line1
@Opt1220 @Line2
@Line3
@Line4 @OutDrive:
@Line5
@Line6
@Line7
@Line11
@Line12
@Line13
@Line14
@PROMPT = " Which directory? "
@EndSubdir
@If (@DirExists("@OutDrive:@Opt1220Dir"))
@GetOption
@LocalWindow(14,40)
@Line8 @OutDrive:@Opt1220Dir.
@Line9
@Line10
@Option 1221 = "Yes"
@Option 1222 = "No"
@EndOption
@Else
@MkDir("@OutDrive:@Opt1220Dir")
@Endif
@Endif
*/
/*
@If (1225 [= @Option)
@GetSubdir @Opt1225Dir
@Default = "\\WP51"
@Cls
@Opt1225Dir @Line1
@Opt1225 @Line2
@Line3
@Line4 @OutDrive:
@Line5
@Line6
@Line7
@Line11
@Line12
@Line13
@Line14
@PROMPT = " Which directory? "
@EndSubdir
@If (@DirExists("@OutDrive:@Opt1225Dir"))
@GetOption
@LocalWindow(14,40)
@Line8 @OutDrive:@Opt1225Dir.
@Line9
@Line10
@Option 1226 = "Yes"
@Option 1227 = "No"
@EndOption
@Else
@MkDir("@OutDrive:@Opt1225Dir")
@Endif
@Endif
*/
@If (1230 [= @Option)
@GetSubdir @Opt1230Dir
@Default = "\\VGAUTIL"
@Cls
@Opt1230Dir @Line1
@Opt1230 @Line2
@Product utilities will be installed.
@Line3
@Line4 @OutDrive:
@Line5
@Line6
@Line7
@Line11
@Line12
@Line13
@Line14
@PROMPT = " Which directory? "
@EndSubdir
@If (@DirExists("@OutDrive:@Opt1230Dir"))
@GetOption
@LocalWindow(14,40)
@Line8 @OutDrive:@Opt1230Dir.
@Line9
@Line10
@Option 1231 = "Yes"
@Option 1232 = "No"
@EndOption
@Else
/* @MkDir() was unsuccessful copying files, use @System() instead */
/* @MkDir("@OutDrive:@Opt1230Dir") */
@System("md @OutDrive:@Opt1230Dir")
@Endif
@Endif
/*
@If (1250 [= @Option)
@GetSubdir @Opt1250Dir
@Default = "\\WS"
@Cls
@Opt1250Dir @Line1
@Opt1250 @Line2
@Line3
@Line4 @OutDrive:
@Line5
@Line6
@Line7
@Line11
@Line12
@Line13
@Line14
@PROMPT = " Which directory? "
@EndSubdir
@If (@DirExists("@OutDrive:@Opt1250Dir"))
@GetOption
@LocalWindow(14,40)
@Line8 @OutDrive:@Opt1250Dir.
@Line9
@Line10
@Option 1251 = "Yes"
@Option 1252 = "No"
@EndOption
@Else
@MkDir("@OutDrive:@Opt1250Dir")
@Endif
@Endif
*/
/***********************************************************************/
@If (
1000 [! @Option &&
1020 [! @Option &&
1040 [! @Option &&
1060 [! @Option &&
1080 [! @Option &&
1085 [! @Option &&
1100 [! @Option &&
1110 [! @Option &&
1115 [! @Option &&
1130 [! @Option &&
1160 [! @Option &&
1170 [! @Option &&
1200 [! @Option &&
1210 [! @Option &&
/* 1220 [! @Option && */
1225 [! @Option &&
1250 [! @Option &&
1230 [! @Option
/* && 1890 [! @Option */
/* && 1910 [! @Option */
/* && 1920 [! @Option */
/* && 1930 [! @Option */
)
@Goto NOINSTALLATION
@Endif
/***********************************************************************/
@DefineDisk
@LABEL = "Software disk 1 of 6"
@If ((1020 [= @Option && 1022 [! @Option)||(1040 [= @Option && 1042 [! @Option)||(1060 [= @Option && 1062 [! @Option))
@BeginLib @ourhomered
@File *.* @Out @OutDrive:\\@AcadDir\\*.*
@EndLib
/* @File ACADP\RCTURBOC.EXP @Out @OutDrive:\\@AcadDir\RCTURBOC.EXP */
/* @File ACADP\READ.ME @Out @OutDrive:\\@AcadDir\READ.ME */
@Endif
@If (1100 [= @Option && 1102 [! @Option)
@File LOTUS2X\AVGAGR.DRV @Out @Opt1100Dir\AVGAGR.DRV
@File LOTUS2X\TC132X25.DRV @Out @Opt1100Dir\TC132X25.DRV
@File LOTUS2X\TC132X43.DRV @Out @Opt1100Dir\TC132X43.DRV
@Endif
@If (1110 [= @Option && 1112 [! @Option)
@BeginLib LOTUS.RED
@File INSTALL.30 @Out @Opt1110Dir\INSTALL.DDF @AskOverwrite
@EndLib
@File LOTUS30\VGAS31CC.VBD @Out @Opt1110Dir\VGAS31CC.VBD
@File LOTUS30\VGAS40CC.VBD @Out @Opt1110Dir\VGAS40CC.VBD
@File LOTUS30\VGAS42CC.VBD @Out @Opt1110Dir\VGAS42CC.VBD
@File LOTUS30\VGAS54CC.VBD @Out @Opt1110Dir\VGAS54CC.VBD
@File LOTUS30\VGAS75CC.VBD @Out @Opt1110Dir\VGAS75CC.VBD
@File LOTUS30\VGAS96CC.VBD @Out @Opt1110Dir\VGAS96CC.VBD
@File LOTUS30\L13AVGA1.DLD @Out @Opt1110Dir\L13AVGA1.DLD
@File LOTUS30\L13AVGA2.DLD @Out @Opt1110Dir\L13AVGA2.DLD
@Endif
@If (1115 [= @Option && 1117 [! @Option)
@BeginLib LOTUS.RED
@File INSTALL.31 @Out @Opt1115Dir\INSTALL.DDF @AskOverwrite
@EndLib
@File LOTUS30\VGAS31CC.VBD @Out @Opt1115Dir\VGAS31CC.VBD
@File LOTUS30\VGAS40CC.VBD @Out @Opt1115Dir\VGAS40CC.VBD
@File LOTUS30\VGAS42CC.VBD @Out @Opt1115Dir\VGAS42CC.VBD
@File LOTUS30\VGAS54CC.VBD @Out @Opt1115Dir\VGAS54CC.VBD
@File LOTUS30\VGAS75CC.VBD @Out @Opt1115Dir\VGAS75CC.VBD
@File LOTUS30\VGAS96CC.VBD @Out @Opt1115Dir\VGAS96CC.VBD
@File LOTUS30\L13AVGA1.DLD @Out @Opt1115Dir\L13AVGA1.DLD
@File LOTUS30\L13AVGA2.DLD @Out @Opt1115Dir\L13AVGA2.DLD
@Endif
@If (1200 [= @Option && 1202 [! @Option)
@File WORD\SCREEN.VID @Out @Opt1200Dir\SCREEN.VID
@Endif
@If (1230 [= @Option && 1232 [! @Option)
@File VGAUTIL\zclmode.exe @Out \@Opt1230Dir\zclmode.exe
/* @If (1230 [= @Option && 1232 [! @Option)
@File VGAUTIL\CLMODE.EXE @Out \@Opt1230Dir\CLMODE.EXE
@File VGAUTIL\CLMODE.INI @Out \@Opt1230Dir\CLMODE.INI
@File VGAUTIL\CLMODE.BR @Out \@Opt1230Dir\CLMODE.BR
@File VGAUTIL\CLMODE.DA @Out \@Opt1230Dir\CLMODE.DA
@File VGAUTIL\CLMODE.DE @Out \@Opt1230Dir\CLMODE.DE
@File VGAUTIL\CLMODE.EN @Out \@Opt1230Dir\CLMODE.EN
@File VGAUTIL\CLMODE.ES @Out \@Opt1230Dir\CLMODE.ES
@File VGAUTIL\CLMODE.FI @Out \@Opt1230Dir\CLMODE.FI
@File VGAUTIL\CLMODE.FR @Out \@Opt1230Dir\CLMODE.FR
@File VGAUTIL\CLMODE.IT @Out \@Opt1230Dir\CLMODE.IT
@File VGAUTIL\CLMODE.LS @Out \@Opt1230Dir\CLMODE.LS
@File VGAUTIL\CLMODE.NL @Out \@Opt1230Dir\CLMODE.NL
@File VGAUTIL\CLMODE.NR @Out \@Opt1230Dir\CLMODE.NR
@File VGAUTIL\CLMODE.PR @Out \@Opt1230Dir\CLMODE.PV
@File VGAUTIL\CLMODE.SV @Out \@Opt1230Dir\CLMODE.SV
@File VGAUTIL\ADJUST.COM @Out \@Opt1230Dir\ADJUST.COM
@File VGAUTIL\TIMINGS.DAT @Out \@Opt1230Dir\TIMINGS.DAT
@File VGAUTIL\LANG.DAT @Out \@Opt1230Dir\LANG.DAT
@File VGAUTIL\IDCHIP.EXE @Out \@Opt1230Dir\IDCHIP.EXE
*/
@Display
@Cls
@MoveCStr(10,5,64+15,"ZCLMODE.EXE is a self-extracting zip file. Run ZCLMODE.EXE to obtain ")
@MoveCStr(11,5,64+15,"CLMODE.EXE utilities. ")
@Pause
@EndDisplay
@Endif
@If (1210 [= @Option && 1212 [! @Option)
@File WORD\SCREEN.VID @Out @Opt1210Dir\SCREEN.VID
@File WORD\SCREEN8.VID @Out @Opt1210Dir\SCREEN8.VID
@Endif
@If (1225 [= @Option && 1227 [! @Option)
@File WP\CIRRUS.VRS @Out @Opt1225Dir\CIRRUS.VRS
@Endif
/* @Endif */
@If (1250 [= @Option && 1252 [! @Option)
@File WORDSTAR\CL800.WGD @Out \@Opt1250Dir\CL800.WGD
@File WORDSTAR\CL1024.WGD @Out \@Opt1250Dir\CL1024.WGD
@File WORDSTAR\PREVIEW.OVR @Out \@Opt1250Dir\PREVIEW.OVR
@File WORDSTAR\PREVIEW.MSG @Out \@Opt1250Dir\PREVIEW.MSG
@File WORDSTAR\GRFPIX.EXE @Out \@Opt1250Dir\GRFPIX.EXE
@Endif
/** OEM RAMBIOS File Copy Begins ************************************
@If (1890 [= @Option && 1892 [! @Option)
@File RAMBIOS\VGA.EXE @Out @Opt1890Dir\VGA.EXE
@Endif
** OEM RAMBIOS File Copy Ends **************************************/
@EndDisk
@DefineDisk
@LABEL = "Software Disk 2 of 4"
@EndDisk
@DefineDisk
@LABEL = "Software Disk 3 of 4"
@EndDisk
/** OEM Disk Installation Start Begins ******************************
@DefineDisk
@LABEL = "OEM DISPLAY DRIVERS"
** OEM Disk Installation Start Ends ********************************/
/** OEM1 File Copy Begins *******************************************
@If (1910 [= @Option && 1912 [! @Option)
@File OEM1\FILE1.EXT @Out @Opt1910Dir\FILE1.EXT
@File OEM1\FILE2.EXT @Out @Opt1910Dir\FILE2.EXT
@Endif
** OEM1 File Copy Ends *********************************************/
/** OEM2 File Copy Begins *******************************************
@If (1920 [= @Option && 1922 [! @Option)
@File OEM2\FILE1.EXT @Out @Opt1920Dir\FILE1.EXT
@File OEM2\FILE2.EXT @Out @Opt1920Dir\FILE2.EXT
@Endif
** OEM2 File Copy Ends *********************************************/
/** OEM3 File Copy Begins *******************************************
@If (1930 [= @Option && 1932 [! @Option)
@File OEM3\FILE1.EXT @Out @Opt1930Dir\FILE1.EXT
@File OEM3\FILE2.EXT @Out @Opt1930Dir\FILE2.EXT
@Endif
** OEM3 File Copy Ends *********************************************/
/** OEM Disk Installation Finish Begins *****************************
@EndDisk
** OEM Disk Installation Finish Ends *******************************/
/***********************************************************************/
/** OEM RAMBIOS AUTOEXEC.BAT File Modification Begins ********
@If (1890 [= @Option && 1892 [! @Option)
@SetAutoexec
@AskOverwrite
@Verbatim "@Opt1890Dir\\RAMBIOS"
@EndAutoexec
@Endif
** OEM RAMBIOS AUTOEXEC.BAT File Modification Ends ***********/
/***********************************************************************/
@Finish
@Cls
The @NameLower installation is complete.
/** OEM RAMBIOS Reboot Message Begins ****************************
@If (1890 [= @Option && 1892 [! @Option)
Reboot the system to activate the RAMBIOS.
@Endif
** OEM RAMBIOS Reboot Message Ends ******************************/
@If(1000 [= @Option)
@move(2,0)
You have successfully installed @namethisprogram for use with
AutoCAD Release 11. Before you can use @namethisprogram you
must run the FASTACAD.BAT file copied to your @OutDrive:@AcadDir
sub-directory and then reconfigure AutoCAD to use @namethisprogram.
You may wish to add FASTACAD.BAT to your AutoCAD start-up file.
To reconfigure AutoCAD to use @namethisprogram start AutoCAD and
select the "TurboDLD ADI v4.2 ...." display option and then follow
the on-screen directions.
@move(21,0)
@Goto DONE
@Endif
@If(2000 [= @Option)
@move(2,0)
You have successfully installed @namethisprogram for AutoCAD
Release 12. Before you can use @namethisprogram you must
reconfigure AutoCAD. To reconfigure, start AutoCAD with "ACAD -r"
and change the current display device. Choose @namethisprogram
from the list of available display drivers and then follow the
on-screen instructions. Refer to your @name
Users Guide for detailed configuration instructions.
If you have chosen to install @namethisprogram into a sub-directory
other than ACAD\DRV, you must append the following path to your
"SET ACADDRV=...." environment variable.
@OutDrive:@AcadDir
@move(21,0)
@Goto DONE
@EndIf
@If(3000 [= @Option)
@move(2,0)
You have successfully installed @namethisprogram for AutoCAD
Release 13. Before you can use @namethisprogram you must
reconfigure AutoCAD. To reconfigure, start AutoCAD with the batch
file provided by AutoCAD and change the current display device.
Choose @namethisprogram from the list of
available display drivers and then follow the on-screen
instructions. Refer to your @name
Users Guide for detailed configuration instructions.
If you have chosen to install @namethisprogram into a sub-directory
other than ACAD13\DOS\DRV, you must append the following path to your
"SET ACADDRV=...." environment variable.
@OutDrive:@AcadDir
@move(21,0)
@Goto DONE
@EndIf
@Goto DONE
NOINSTALLATION:
The selected @NameLower were not installed.
Please refer to the user manual for additional instructions.
DONE:
@Pause
@ChDrive @OutDrive
@ChDir "\\"
@EndFinish
// end-of-file